home *** CD-ROM | disk | FTP | other *** search
/ EIDOS Interactive Digital Press Kit ECTS 1997 / EIDOS Digital Press Kit - ECTS 1997 - Disc 1.iso / pc / eidosss.cst / 00055.ls < prev    next >
Encoding:
Text File  |  1997-08-28  |  586 b   |  24 lines
  1. on xtracopypress
  2.   
  3.   
  4.   if the platform contains   "Mac" then
  5.     
  6.   maccopypress
  7.   else
  8.     
  9.     openXLib "Xtras\filecopy"  -- custom xtra
  10.     
  11.     set filename = the pathName&"presstxt\"&the name of cast the mousecast
  12.     
  13.     if fileName > "" then
  14.       set wFileName = doSaveAsDlg(the pathName&"presstxt\"&the name of cast the mousecast, "Word@*.rtf")
  15.       if wFileName > "" then
  16.        set result = copyFile(wFileName, fileName) -- this is the call that does the copying
  17.       put result
  18.       end if  
  19.     end if
  20.     
  21.     closeXLib "Xtras\filecopy"
  22.   end if
  23.   
  24. end xtracopypress